60000 REM TABELLEN EINLESEN ---------------------------------------------------- 60001 : 60100 REM WORTSCHATZ-INDEX ----------- 60110 DIMIN(26) 60120 FORI=0TO26:READ IN(I):NEXTI 60130 DATA 1,4,0,29,32,48,53,64,72,0,74,82,0,88,96,100,107,109,124,160,167 60140 DATA 170,190,0,0,201 60150 DATA 211 : REM BUCHSTABE NACH Z ! 60200 REM OBJEKT-TABELLE ------------- 60210 OZ=13:REM ANZAHL DER OBJEKTE 60220 DIM OB(OZ),OX(OZ),OA(OZ),OU(OZ),OS(OZ) 60230 FORI=1TOOZ 60240 : READOB(I),OX(I),OA(I),OU(I),OS(I) 60250 NEXTI 60260 DATA 1,24 ,1,24 ,164:REM GLASKUPPEL 60262 DATA 1,0 ,2,95 ,165:REM SAND 60264 DATA 2,34 ,1,34 ,166:REM TUNNEL 60266 DATA 3,43 ,1,43 ,167:REM KR.GROTTE 60268 DATA 3,102,2,0 ,168:REM QUADER 60270 DATA 3,0 ,2,113,169:REM STATUE 60272 DATA 3,106,0,0 ,170:REM SCHWERT 60274 DATA 0,0 ,3,79 ,171:REM ZETTEL 60276 DATA 0,0 ,3,87 ,172:REM AMULETT 60278 DATA 0,76 ,2,91 ,173:REM GRUBE 60279 DATA 0,161,2,0 ,174:REM OEFFNUNG 60280 DATA 4,54 ,1,54 ,175:REM FELSPLAT. 60282 DATA 3,0 ,2,97 ,176:REM KRISTALLE 60500 REM LANDKARTE ------------------ 60501 : 60510 DIM MAP(4,10) 60520 FORI=1TO4 60530 : FORI1=1TO10 60540 : READ MAP(I,I1) 60550 : NEXTI1 60560 NEXTI 60570 DATA 2,0,0,0,0,0,0,0,0,0 60572 DATA 3,1,0,0,0,0,0,0,0,0 60574 DATA 0,2,0,0,0,0,0,0,0,0 60576 DATA 0,0,0,3,0,0,0,0,0,0 60600 RETURN